#lang racket


(require "../base/main.rkt")

(provide rectangle-coords)


(define (rectangle-coords width length)
  (let ((width (/2 width))
        (length (/2 length)))
    (list
     (xyz (- width) (- length) 0)
     (xyz width (- length) 0)
     (xyz width length 0)
     (xyz (- width) length 0))))